home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / gcc / libnix.lha / gnu / lib / libnix / sources.lha / detach / __initdetach.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-07-20  |  2.6 KB  |  96 lines
  1. #include <exec/memory.h>
  2. #include <dos/dosextens.h>
  3. #include <dos/dostags.h>
  4. #ifdef __GNUC__
  5. #include <inline/exec.h>
  6. #include <inline/dos.h>
  7. #endif
  8. #include <stabs.h>
  9.  
  10. extern struct WBStart *_WBenchMsg;
  11. extern char *__commandline;
  12. extern struct DosLibrary *DOSBase;
  13. extern struct ExecBase *SysBase;
  14. extern void *__SaveSP;
  15. extern char __dosname[];
  16.  
  17. extern long __stack;
  18. extern char *__procname;
  19. extern long __priority;
  20.  
  21. /* I must close a library after my child is running -
  22.  * and closing a library requires a working dispatcher, so:
  23.  */
  24. static struct SignalSemaphore *sem;
  25.  
  26. void __initdetach(void)
  27. { 
  28.   if(_WBenchMsg!=NULL)
  29.     return;
  30.  
  31.   if(sem!=NULL)           /* I must be the child process */
  32.   { ObtainSemaphore(sem); /* Assert that my parent is already dead */
  33.     ReleaseSemaphore(sem);
  34.     FreeMem(sem,sizeof(struct SignalSemaphore));
  35.     return;
  36.   }
  37.                           /* I must be the parent */
  38.   if((sem=(struct SignalSemaphore *)
  39.          AllocMem(sizeof(struct SignalSemaphore),MEMF_PUBLIC|MEMF_CLEAR))==NULL)
  40.     exit(20);
  41.  
  42.   InitSemaphore(sem);
  43.     
  44.   ObtainSemaphore(sem); /* Assert that my child is suspended until I'm finished */
  45.     
  46.   if((DOSBase=(struct DosLibrary *)OpenLibrary(__dosname,37))!=NULL)
  47.   { struct CommandLineInterface *cli;
  48.     void *stack;
  49.  
  50.     cli=Cli();
  51.     { struct TagItem tags[7];
  52.       
  53.       tags[0].ti_Tag =NP_Seglist;     /* child process gets my seglist */
  54.       tags[0].ti_Data=cli->cli_Module;
  55.  
  56.       tags[1].ti_Tag =NP_FreeSeglist; /* and must free it */
  57.       tags[1].ti_Data=1;
  58.  
  59.       tags[2].ti_Tag =NP_StackSize;   /* it gets a stack */
  60.       tags[2].ti_Data=__stack;
  61.  
  62.       tags[3].ti_Tag =NP_Name;        /* a name */
  63.       tags[3].ti_Data=(ULONG)__procname;
  64.  
  65.       tags[4].ti_Tag =NP_Priority;    /* a priority */
  66.       tags[4].ti_Data=__priority;
  67.  
  68.       tags[5].ti_Tag =NP_Arguments;   /* and my commandline Arguments */
  69.       tags[5].ti_Data=(ULONG)__commandline;
  70.  
  71.       tags[6].ti_Tag =TAG_END;        /* That's all - everything else is implicit */
  72.  
  73.       stack=__SaveSP;
  74.  
  75.       if(CreateNewProc(tags)!=NULL)
  76.       { cli->cli_Module=0;            /* I'm no longer owner of this */
  77.         CloseLibrary((struct Library *)DOSBase);
  78.         DOSBase=NULL;
  79.  
  80.         Forbid(); /* Disable Multitasking */
  81.         ReleaseSemaphore(sem);
  82.  
  83.         /* Adjust stack, enable multitasking, return 0 */
  84.         asm("movel %0,sp;movel %1,a6;moveql #0,d0;jmp a6@(-138)"::
  85.             "r"(stack),"r"(SysBase):"a6");
  86.       }
  87.       CloseLibrary((struct Library *)DOSBase);
  88.     }
  89.   }
  90.   ReleaseSemaphore(sem);
  91.  
  92.   exit(20);
  93. }
  94.   
  95. ADD2INIT(__initdetach,-70); /* A very high priority */
  96.